home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / vivid / nome2.dir / 00041_Script_41 < prev    next >
Text File  |  1983-03-02  |  673b  |  23 lines
  1. on mouseUp
  2.   global nome_hd
  3.   if the machinetype = 256 then
  4.     set strada to nome_hd&":\invenzio\libri\"
  5.   else
  6.     set strada to nome_hd&":invenzio:libri:"
  7.   end if
  8.   SET FLAG=0
  9.   set qqq=1
  10.   repeat while qqq<= the number of lines of the text of cast 100
  11.     if line qqq of  the text of cast 100=the text of cast 21 then SET FLAG=1
  12.     set qqq=qqq+1
  13.   end repeat  
  14.   -- IF FLAG=1 THEN go to frame "alt"
  15.   IF FLAG=0 THEN
  16.     set vvv to the text of cast 100 & return & the text of cast 21
  17.     global filexx,
  18.     set filexx=fileio(mnew,"write",strada&"nomi.ini")
  19.     if objectp(filexx) then  filexx(mWriteString, vvv)
  20.     filexx(mDispose)
  21.   END IF
  22. end
  23.